home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
comm
/
home20dm.zip
/
SETUP.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-09-22
|
4KB
|
198 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
String TSTRING001(120)
String TSTRING002(120)
String TSTRING003(120)
String TSTRING004(120)
String TSTRING005(120)
String STRING006
String STRING007
String STRING008
;------------------------------------------------------------------------------
Cls
PrintLn "@X0BThis is the SETUP program for v2.0 of the Homework program. This program"
PrintLn "should only be used once to configure the TEACHERS.CFG file for your school."
Newline
InputYN "Do you want to continue? (Y/n)_", STRING008, 10
If (STRING008 == NoChar()) Then
Cls
End
Else
Goto LABEL001
Endif
:LABEL001
If (Exist(PPEPath() + "TEACHERS.CFG")) Then
Newlines 2
PrintLn "@X0CThis program has detected that the TEACHERS.CFG file already exists on this"
PrintLn "computer. If this is the first time you are running this setup program then"
PrintLn "answar YES to the following question. If you have already used this program"
PrintLn "to configure your TEACHERS.CFG file, then please answar NO to the following"
PrintLn "question."
Newline
STRING008 = ""
InputYN "Do you want to continue the setup program? (N/y)_", STRING008, 14
If (STRING008 == YesChar()) Then
Goto LABEL002
Else
Cls
End
Endif
Else
:LABEL002
FCreate 1, PPEPath() + "TEACHERS.CFG", 2, 3
FClose 1
INTEGER001 = 0
Endif
INTEGER001 = 0
:LABEL003
Cls
PrintLn "@X0ANumber Of Teachers: @X0F", INTEGER001
Inc INTEGER001
Newline
InputText "Enter Teacher's Name: _", TSTRING001(INTEGER001), 14, 57
If (TSTRING001(INTEGER001) == "") Then
Newlines 2
PrintLn "@X0CAborted!"
Delay 20
Dec INTEGER001
Else
Newline
InputText "Enter Path To Teacher's File: _", TSTRING002(INTEGER001), 14, 49
Newline
InputText "Enter Teacher's Subject: _", TSTRING003(INTEGER001), 14, 54
Newline
InputText "Enter Path To Teacher's Intro File: _", TSTRING004(INTEGER001), 14, 43
Newline
InputText "Enter Path To Download File: _", TSTRING005(INTEGER001), 14, 50
Cls
PrintLn "@X0ATeacher's Name: @X0E", TSTRING001(INTEGER001)
PrintLn "@X0APath To Teacher's File: @X0E", TSTRING002(INTEGER001)
PrintLn "@X0ATeacher's Subject: @X0E", TSTRING003(INTEGER001)
PrintLn "@X0APath To Teacher's Intro File: @X0E", TSTRING004(INTEGER001)
PrintLn "@X0APath To Download File: @X0E", TSTRING005(INTEGER001)
Newline
InputYN "Is the above correct? (y/N)_", STRING006, 10
If (STRING006 == YesChar()) Then
Goto LABEL004
Else
Dec INTEGER001
Goto LABEL003
Endif
Endif
:LABEL004
Newline
InputYN "Another Teacher? (Y/n)_", STRING007, 10
If (STRING007 == NoChar()) Then
Goto LABEL005
Else
Goto LABEL003
Endif
:LABEL005
INTEGER001 = 1
While (TSTRING001(INTEGER001) <> "") Do
Inc INTEGER001
If (INTEGER001 == 121) Then
Dec INTEGER001
Break
Endif
EndWhile
INTEGER002 = INTEGER001 - 1
INTEGER001 = 1
FCloseAll
FOpen 1, PPEPath() + "TEACHERS.CFG", 1, 3
FPutLn 1, INTEGER002
Cls
PrintLn "@X0FUpdating the TEACHERS.CFG file..."
While (INTEGER001 < INTEGER002 + 1) Do
FPutLn 1, TSTRING001(INTEGER001)
FPutLn 1, TSTRING002(INTEGER001)
FPutLn 1, TSTRING003(INTEGER001)
FPutLn 1, TSTRING004(INTEGER001)
FPutLn 1, TSTRING005(INTEGER001)
Inc INTEGER001
EndWhile
FCloseAll
Newline
PrintLn "@X0ANow run the Homework v2.0 program and choose @X0FChange The Homework @X0Afrom the"
PrintLn "SysOp menu and then use the @X0FR @X0Acommand to reset all the teacher's files. This"
PrintLn "will create the homework files you have just entered in this setup program."
Newline
Wait
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 6 Cls
; 1 Wait
; 24 Goto
; 6 Let
; 18 PrintLn
; 9 If
; 1 FCreate
; 1 FOpen
; 1 FClose
; 6 FPutLn
; 4 InputYN
; 1 Delay
; 3 Inc
; 3 Dec
; 11 Newline
; 2 Newlines
; 5 InputText
; 2 FCloseAll
;
;
; ■ Functions used :
;
; 4 +
; 1 -
; 6 ==
; 1 <>
; 1 <
; 9 !
; 2 NoChar()
; 2 YesChar()
; 3 PPEPath()
; 1 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 2 While/EndWhile
; 7 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------